home *** CD-ROM | disk | FTP | other *** search
- object DirSelectorDialog: TDirSelectorDialog
- Left = 7
- Top = 11
- Width = 449
- Height = 350
- HelpContext = 101
- ActiveControl = FileList
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Directory Selector'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Position = poDefaultPosOnly
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 15
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 441
- Height = 41
- Align = alTop
- TabOrder = 0
- object Label2: TLabel
- Left = 8
- Top = 11
- Width = 50
- Height = 15
- Caption = '&Location:'
- FocusControl = LocationBox
- end
- object LocationBox: TEdit
- Left = 64
- Top = 8
- Width = 369
- Height = 23
- AutoSize = False
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- OnExit = LocationBoxExit
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 279
- Width = 441
- Height = 44
- Align = alBottom
- TabOrder = 1
- object Panel5: TPanel
- Left = 171
- Top = 1
- Width = 269
- Height = 42
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object OkButton: TBitBtn
- Left = 6
- Top = 8
- Width = 81
- Height = 28
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = OkButtonClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0
- E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0
- E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033
- 33333333330B033333333333330F833333333333333083333333}
- end
- object CancelButton: TBitBtn
- Left = 94
- Top = 8
- Width = 81
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333
- 33333333330F833333333333330B033330003333330FB03000B03380000BFB00
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000
- 0000333333333333333333333333333333333333333333333333}
- end
- object HelpButton: TBitBtn
- Left = 182
- Top = 8
- Width = 81
- Height = 28
- Caption = '&Help'
- TabOrder = 2
- OnClick = HelpButtonClick
- Glyph.Data = {
- 76010000424D760100000000000076000000280000001B000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3300003333333330000033333333333300BFBF00333333300000333333333330
- FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B
- FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB
- FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0
- FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0
- 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B
- FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333
- 00FBFB003333333000003CCC3333333333000033333333300000}
- end
- end
- end
- object MainPanel: TPanel
- Left = 0
- Top = 41
- Width = 441
- Height = 238
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 2
- object FileListPanel: TPanel
- Left = 0
- Top = 0
- Width = 441
- Height = 238
- Align = alClient
- BorderWidth = 6
- TabOrder = 0
- object FileList: TFileList
- Left = 7
- Top = 7
- Width = 427
- Height = 224
- Align = alClient
- Ctl3D = True
- ExtendedSelect = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 18
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 0
- OnDblClick = FileListDblClick
- OnChange = FileListChange
- FileMask = '*.*'
- TextCase = tcNone
- FileDetails = [fdName]
- ListDetails = [ldDrives, ldSystemDirectories, ldDirectories]
- SearchMode = smNormal
- BusyCursor = crHourGlass
- HighlightFG = clHighlightText
- HighlightBG = clHighlight
- end
- end
- end
- end
-